home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / H-L / Invoicer.cpt / Start Up < prev    next >
Text File  |  1987-03-30  |  3KB  |  86 lines
  1.     AlterIllustration:
  2.         CLS
  3.         WINDOW 2,"",(28,50) - (478,280),3
  4.         TEXTFACE (0): TEXTSIZE (10)
  5.         message$(1) = "If you wish to alter the title picture, but you have not yet modified it (and copied it to "
  6.         message$(2) = "the clipboard), choose ''A'' - you will exit BASIC. Open a PAINT program, modify picture"
  7.         message$(3) = "(''title pix'' PAINT file), copy it to the clipboard, and run the ''Start up'' program again."
  8.         message$(4) = "If you also wish to print out the above instructions, choose ''B.'' Please make sure your "
  9.         message$(5) = "printer is turned on and loaded with paper (printing begins immediately)."
  10.         message$(6) = "This is a test to see if this is going to work or not"
  11.         message$(6) = "If you have already altered the title picture and have it on the clipboard, choose ''C.''"
  12.         message$(7) = "The modification will be designated as the new title picture, customer and tax files"
  13.         message$(8)= "will be created, and you will enter the program, ready to set up your system.''"
  14.         message$(9)= "If you wish to use the default title picture for now, choose ''D.''"
  15.         PRINT:PRINT SPC (1);message$(1)
  16.            PRINT SPC (1);message$(2)
  17.            PRINT SPC (1);message$(3)
  18.            PRINT:PRINT
  19.           PRINT SPC (1);message$(4)
  20.          PRINT SPC (1);message$(5)
  21.          PRINT:PRINT
  22.         PRINT SPC (1);message$(6)
  23.         PRINT SPC (1);message$(7)
  24.         PRINT SPC (1);message$(8)
  25.         PRINT:PRINT
  26.         PRINT SPC (1);message$(9)
  27.         
  28.          WINDOW 3,"",(28,285)-(478,330),-3
  29.            BUTTON 1,1,"A",(12,10)-(111,35),1
  30.            BUTTON 2,1,"B",(121,10)-(220,35),1
  31.            BUTTON 3,1,"C",(230,10)-(329,35),1
  32.            BUTTON 4,1,"D",(339,10)-(438,35),1
  33.       YourChoice:
  34.            WHILE DIALOG(0)<>1:WEND
  35.              Buttonpushed=DIALOG(1)
  36.               IF Buttonpushed=1 THEN SYSTEM
  37.               IF Buttonpushed=2 THEN GOSUB Prntr
  38.               IF Buttonpushed=4 THEN Mdfy = 1
  39.               
  40.     Begin:
  41.         BUTTON CLOSE 1: BUTTON CLOSE 2: BUTTON CLOSE 3: WINDOW CLOSE 2:WINDOW CLOSE 3
  42.         CLS
  43.         TEXTFACE(1):TEXTSIZE (12)
  44.         PRINT:PRINT
  45.         PRINT SPC(11);"creating customer files - please wait"
  46.  
  47.  OPEN "Accts Recd" FOR APPEND AS #1
  48.  CLOSE #1
  49.  OPEN "Accts Billed" FOR APPEND AS #1
  50.  CLOSE #1
  51.  OPEN "Customers A" FOR APPEND AS #1
  52.  CLOSE #1
  53.  OPEN "Customers B" FOR APPEND AS #1
  54.  CLOSE #1
  55.  IF Mdfy = 1 THEN SkipModify
  56.  ModifyPix:
  57.   OPEN "CLIP:PICTURE" FOR INPUT AS #1
  58.   TITLE$=INPUT$(LOF(1),1)
  59.   CLOSE #1
  60.   OPEN "title picture"  FOR OUTPUT AS #1
  61.   PRINT #1, TITLE$
  62.   CLOSE #1
  63.   SkipModify:
  64. CLS
  65.     PRINT:PRINT
  66. INPUT"Sales Tax Rate (percent value — ex., 7.5 for 7-1/2)   %",TaxRate
  67.  OPEN "Tax Rate" FOR OUTPUT AS #1
  68.     PRINT #1, TaxRate/100
  69.  CLOSE #1
  70.  LOAD "Open Me First",R
  71.  
  72.      Prntr:
  73.            LPRINT:LPRINT message$(1)
  74.            LPRINT message$(2)
  75.            LPRINT message$(3)
  76.            SYSTEM
  77.          
  78.  
  79.               
  80.  
  81.  
  82.         
  83.  
  84.  
  85.  
  86.